Textkonvertierung IBM-PC nach CP/M

Wer abwechselnd unter CP/M und unter DRDOS (oder womöglich gar MSDOS) Texte schreibt, hat stets Probleme, diese Texte zwischen beiden Systemen auszutauschen. Das geringere Übel ist dabei, daß die auf dem PC eingegebenen deutschen Umlaute und Grafikzeichen unter CP/M nicht mehr zu erkennen sind; viel schlimmer ist, daß gelegentlich ab einer bestimmtem Stelle im Text unter CP/M vermeintlich nichts mehr da ist.

Woran liegt das? ---Daran:

Unter CP/M gibt es den 7Bit-ASCII-Code, mit dem 128 verschiedene Zeichen codiert werden können. Die ersten 32 Codes werden noch für Steuerzeichen für das Terminal, den Drucker oder wen auch immer belegt, so daß mit 96 Codes nicht allzuviele darstellbaren Zeichen unterschieden werden können. So hat man schon für die verschiedenen nationalen Sonderzeichen die Konvention eingeführt, daß deren Codes immer bei 5Bh-5Eh und 7Bh-7Eh liegen. Welches nationale Sonderzeichen mit einem dieser Codes erzeugt werden soll, kann z.B. beim Drucker über ein Mäuseklavier eingestellt werden oder allgemeiner über eine ESC-Sequenz vorgegeben werden.

Bei der Druckerausgabe ist es noch möglich, durch Umschalten mit entsprechenden ESC-Sequenzen abwechselnd die Sonderzeichen aller nationalen Zeichensätze innerhalb eines Textes zu benutzen. Dann müssen in dem Text-File diese Steuersequenzen enthalten sein und es handelt sich nicht mehr um einen reinen ASCII-Text, der universell übertragbar ist.

Dieses Übel wurde beim PC durch den 8Bit-ASCII-Code beseitigt. Das 8te Bit wird dafür verwendet, weitere 128 darstellbare Zeichen zu codieren. Die Codes 5Bh-5Eh und 7Bh-7Eh sind eindeutig den Zeichen [\]^{|} zugeordnet und alle anderen nationalen Sonderzeichen haben eindeutige Codes mit gesetztem Bit 7. Daneben gibt es noch etliche weitere Sonderzeichen und auch Grafikzeichen zum Erzeugen von Linien und Rahmen in einfacher, doppelter und gemischter Linienführung.

Da unter CP/M das Bit 7 eines ASCII-Codes nicht definiert ist, benutzen einige Textprogramme und auch Terminals es zur Unterbringung eines Attribut-Bits oder ignorieren es einfach. In diesem Fall werden die PC-Zeichen mit Codes 8Ch-9Fh als Steuerzeichen 00h-1Fh erkannt (z.B. Wordstar), was im Fall von "Ü" mit dem Code 9Ah als 1Ah = ^Z erkannt und als 'End of File' interpretiert wird. Der Rest des Files hinter dem Ü ist dann nicht zugänglich.

Da mit dem unter CP/M 3.0 laufenden Programm MSDOS.COM, dessen Turbo Pascal Source in dem Artikel "CP/M 3.0 goes MSDOS' in der c't abgedruckt war, 5¼"-360K-MSDOS-Disketten gelesen und geschrieben werden können, ist ein Transfer von Texten zwischen den Systemen physikalisch möglich. Es muß nur noch eine Anpassung der ASCII-Codes vorgenommen werden, falls das Text-File von DRDOS nach CP/M übertragen werden soll. In anderer Richtung ergibt eine Code-Umwandlung wenig Sinn, weil nicht feststeht, welches nationale Sonderzeichen anstelle der eckigen und geschweiften Klammern gemeint ist, oder ob nicht hier tatsächlich mal eine solche Klammer gemeint ist.

Da diese Umcodierung über eine Tabelle erledigt wird, kann man sich dort noch weitere Stellvertreter-Zeichen für den 7Bit-Zeichnsatz einbauen, ohne an der Programmlogik herumschnitzen zu müssen.

program PC2CPM
{uses crt;	nur unter Turbo Pascal 4.0 nötig, kann sonst kein UPCASE}

const logo : string = 'PC => CP/M Textkonvertierung,   (C) 06.09.91 Be';

Umcode : array [0..127] of Byte =
($43,$7D,$65,$61, $7B,$61,$61,$63, $65,$65,$65,$69, $69,$69,$5B,$65,
 $45,$7b,$5b,$7c, $7c,$6f;$75,$75, $79,$5c,$5d,$63, $20,$59,$20,$20,
 $61,$69,$6f,$75, $6e,$4e,$61,$6f, $20,$20,$20,$20, $20,$20,$3c,$3c,
 $20,$20,$20,$21, $21,$21,$21,$2b, $2b,$21,$21,$2b, $2b,$2b,$2b,$2b,
 $2b,$2d,$2d,$21, $2d,$2b,$21,$21, $2b,$2b,$2d,$2d, $21,$2d,$2b,$2b,
 $2d,$2d,$2d,$2d, $2b,$2b,$2b,$2b, $2b,$2b,$2b,$20, $20,$20,$20,$20,
 $61,$7e,$54,$20, $20,$20,$20,$20, $20,$20,$20,$20, $20,$20,$20,$20,
 $3d,$2b,$3e,$3c, $20,$20,$20,$20, $20,$20,$20,$20, $20,$32,$20,$20;
{	Position in der Tabelle ist PC-ASCII-Code abzüglich 128.
	Wert in der Tabelle ist der entsprechende CP/M-ASCII-Code
	Für nicht übertragbare Zeichen wird ein Blank erzeugt}

var  PC, CPM		   : file of byte;
     Quelle, Ziel	   : string;
     Ptr, scan, i, Zeichen : byte;

procedure GetSource;
begin
  repeat
    write('PC-Text-File : ');	readln(Quelle);
    for scan := 1 to length (Quelle do Quelle[scan] :=
	upcase(Quelle[scan];
    assign(PC,Quelle);   {$I-}   reset(PC);   {$I+}
  until oiresult=0;
end;

begin
  if ParamCount <> 0 then begin
    Quelle := ParamStr(1); for scan := 1 to length(Quelle) do
      Quelle[scan] := upcase(Quelle[scan]
    assign(PC,Quelle);   {$I-}   reset(PC);   {$I+}
    if ioresult <> 0 then begin
      writeln('kann ',Quelle, ' nicht oeffnen!');   GetSource;
    end;
  end;
  else GetSource;

  Ziel:='';  scan:=1;
  repeat
    Zile := Ziel + Quelle[scan];   scn := scan + 1;
    if Quelle[scan] = '.' than scan := length(Quelle);
  until scan = length(Quelle);

  Ziel := Ziel + '.CPM';
  assign(CPM,Ziel);   {$I-}   rewrite(CPM);   {$I+}
  if ioresult <> 0 then begin
    writeln('kann ',Ziel,' nicht anlegen!');   Halt;
  end;

  writeln(logo);
  repeat
    read(PC,Zeichen);
    if (Zeichen and $80) <> 0 then begin
      Ptr := (Zeichen and $7F);   Zeichen := umcode[Ptr]:
    end;
    write(CPM,Zeichen);
  until eof(PC);
  close(PC);   close(CPM);
  writeln(Quelle,' in,' Ziel. konvertiert !')
end.